home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / Macintosh Graphics Primer / Macintosh Graphics Primer / card_26413.txt < prev    next >
Text File  |  1990-12-05  |  4KB  |  167 lines
  1. -- card: 26413 from stack: in
  2. -- bmap block id: 27393
  3. -- flags: 0000
  4. -- background id: 2792
  5. -- name: intro 9a
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=428 top=317 right=342 bottom=456
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 18611 / 18611
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: prev
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   visual effect scroll right
  23.   go prev
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part 2 (button)
  29. -- low flags: 00
  30. -- high flags: 2000
  31. -- rect: left=458 top=317 right=342 bottom=485
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 18612 / 18612
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: next
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   visual dissolve
  43.   go next
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 3 (button)
  49. -- low flags: 00
  50. -- high flags: 2000
  51. -- rect: left=484 top=317 right=342 bottom=512
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 18613 / 18613
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: return
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   pop card into lastPush
  63.   if the short name of this stack is not in lastPush then
  64.     visual dissolve
  65.     go card "Map"
  66.   else
  67.     visual dissolve
  68.     go lastPush
  69.   end if
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part 4 (button)
  75. -- low flags: 00
  76. -- high flags: 0002
  77. -- rect: left=392 top=320 right=338 bottom=426
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 1500 / 1500
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Start-Up
  86. ----- HyperTalk script -----
  87. on mouseDown
  88.   global NAV_PATH, SYS_PATH, GTRACKINGDISABLED
  89.  
  90.   put (item 1 of the mouseLoc) - (item 1 of the Loc of me) into whereInBtn
  91.  
  92.   -- simulate hiliting of two small buttons
  93.   repeat until the mouse is up
  94.     ---find out WHERE on the icon you clicked
  95.     put (item 1 of the mouseLoc) - (item 1 of the Loc of me) into whereInBtn
  96.     if the mouseLoc is within the rect of the target then
  97.       if whereInBtn < 0 then
  98.         set icon of me to 1501
  99.       else
  100.         set icon of me to 1502
  101.       end if
  102.     else   -- outside of the button, reset default icon
  103.       set icon of me to 1500
  104.     end if
  105.   end repeat
  106.   set icon of me to 1500
  107.   if the mouseloc is not within the rect of me then exit mouseDown
  108.  
  109.   if whereInBtn < 0 then
  110.     --- the click was on the left so go to send feedback if it exists
  111.     if (GTRACKINGDISABLED = empty) or (GTRACKINGDISABLED = true) then
  112.       answer "‚ÄúCD Preferences‚Äù has not been installed." with "OK"
  113.       exit mouseDown
  114.     end if
  115.     --
  116.     if (GTRACKINGDISABLED = "Disabled") then
  117.       answer "The feedback mechanism has been disabled." with "OK"
  118.       exit mouseDown
  119.     end if
  120.     --
  121.     push card
  122.     put SYS_PATH & "CD Preferences" into feedPath
  123.     set cursor to watch
  124.     visual effect dissolve fast
  125.     go stack feedPath
  126.   else if whereInBtn > 0 then
  127.     -- if the click was on the right then go back to navigation stack
  128.     visual effect iris close to black
  129.     visual effect iris open
  130.     if NAV_PATH = empty then put "cd welcome of stack" && "the ‚ÄúNavigation Stack‚Äù" into NAV_PATH
  131.     -- make a prompt for "where is" if the global is empty
  132.     go NAV_PATH
  133.   end if
  134. end mouseDown
  135.  
  136. on mouseUp
  137.   -- kill any mouseups
  138. end mouseUp
  139.  
  140.  
  141.  
  142. -- part contents for background part 5
  143. ----- text -----
  144.  
  145. In very dark conditions, the cones ‚Äì which need a greater amount of light than the rods ‚Äì become ineffective and the rods take over; the rods have no color capability, so our vision actually becomes black & white in very low-light conditions.
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157. -- part contents for background part 9
  158. ----- text -----
  159. Macintosh Graphics Primer
  160.  
  161. -- part contents for background part 13
  162. ----- text -----
  163. How We See Colors  (continued)
  164.  
  165. -- part contents for background part 4
  166. ----- text -----
  167. The Basics of Color